home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / util / simulare.sit / Simula 4.07 Reference / card_25567.txt < prev    next >
Text File  |  1989-05-02  |  1KB  |  69 lines
  1. -- card: 25567 from stack: in.07 Reference
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 13647
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=330 top=218 right=240 bottom=414
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Setaccess
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card id 25718
  23. end mouseUp
  24.  
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: A004
  31. -- rect: left=373 top=291 right=313 bottom=457
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Files
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   go to card id 25043
  43. end mouseUp
  44.  
  45.  
  46.  
  47.  
  48. -- part contents for background part 2
  49. ----- text -----
  50. File
  51.  
  52. -- part contents for background part 1
  53. ----- text -----
  54. The class File contains attributes common to all fileclasses. Identifiers in upper case letters are not accessible to the user program.
  55.  
  56. class file(FILENAME); value FILENAME; text FILENAME;
  57. begin
  58.       Boolean OPEN; ! true if the file is open ;
  59.  
  60.       text procedure Filename; Filename:-copy(FILENAME);
  61.  
  62.       Boolean procedure Isopen:=OPEN;
  63.  
  64.       Boolean procedure Setaccess(mode) text mode ; ......;
  65.  
  66.       if filename==Notext then 
  67.             error("...");
  68. end --- File --- ;
  69.